#!/usr/local/bin/perl

$i=2000;

while ($i < 2010) 
{
  $leap = int (1 - (($i - int(($i)/4) * 4) / 4)) ;
  print "$i $leap \n";
  $i++;
}
